home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / programming / pascal / baseunit / test.pas < prev    next >
Pascal/Delphi Source File  |  1978-11-24  |  2KB  |  43 lines
  1. { *    This is a test program set up to use the unit "Base".
  2.     
  3.     The whole concept behind this is to make units that "take care of
  4.     themselves"... you use them, and as soon as your program is finished,
  5.     either through a normal termination or a Halt(..), they clean up
  6.     after themselves.
  7.     
  8.     I'm just starting the process of making a bunch of these to make my
  9.     life easier.  Look for something that uses GadTools sometime soonish.
  10.     
  11.     Just to note: rather small, isn't it? No need to OpenLibrary yourself
  12.     or anything complex.  YES, I got sick of copying my window and screen
  13.     routines around <grin> --- hopefully someone can benefit from my
  14.     laziness ;-)
  15.     
  16.     Written in HighSpeed Pascal 1.10 by Ritchie Annand
  17. }
  18.     
  19. program Test;
  20.  
  21. uses Exec,Graphics,Intuition,Base;
  22.                             { ^ Base is our custom unit }
  23. var
  24.     scr : pScreen;    { Pointer to a screen type }
  25.     bwin: pWindow;    { A couple of window pointers }
  26.     win : pWindow;
  27.     msg : pMessage;    { Pointer to a message type, of course }
  28. begin
  29.     {--- Use NewScreen routine to open a screen that will be automatically
  30.         taken care of ---}
  31.     scr := NewScreen(640,400,2,HIRES or LACE,'',TRUE);
  32.     {--- Use NewWindow routine to open a borderless window, the size of the
  33.         whole screen, that will be automatically taken care of ---}
  34.     bwin := NewWindow(0,0,640,400,
  35.                     0,BORDERLESS,
  36.                     0,0,0,0,'',scr);
  37.     {--- Use NewWindow to open up a little "Hello" window ---}
  38.     win := NewWindow(0,0,320,200,
  39.                     CLOSEWINDOW_,WINDOWCLOSE or WINDOWDRAG,
  40.                     200,100,640,400,'Hello',scr);
  41.     {--- Wait for the user to click on the close gadget ---}
  42.     msg := WaitPort(win^.UserPort);
  43. end.